home *** CD-ROM | disk | FTP | other *** search
/ Codemasters Artwork Disc ECTS 2000 ( UK) / Codemasters - Artwork Disc ECTS 2000 (UK).bin / pc / main.dxr / 00133_download producer.ls < prev    next >
Encoding:
Text File  |  2000-01-01  |  2.7 KB  |  103 lines
  1. global gTitle, mycddrive, mysystem, gBigScreen, gdoit
  2.  
  3. on mouseDown
  4.   case gTitle of
  5.     "cmrp":
  6.       gdoit = "do"
  7.     "lma":
  8.       gdoit = "do"
  9.     "toca":
  10.       gdoit = "do"
  11.     otherwise:
  12.       gdoit = "dont"
  13.   end case
  14.   if gdoit = "do" then
  15.     cursor(4)
  16.     if gTitle = VOID then
  17.       abort()
  18.       cursor(0)
  19.     end if
  20.     case gTitle of
  21.       "cmrp":
  22.         gBigScreen = "GUY"
  23.       "lma":
  24.         gBigScreen = "SIMON"
  25.       "toca":
  26.         gBigScreen = "GAVIN"
  27.     end case
  28.     if the machineType = 256 then
  29.       if mycddrive = VOID then
  30.         driveList = DrivesToList()
  31.         repeat with X = 1 to count(driveList)
  32.           driveName = getAt(driveList, X)
  33.           Y = DriveIsCDROM(driveName)
  34.           if Y = 0 then
  35.             mycddrive = driveName
  36.           end if
  37.         end repeat
  38.       end if
  39.       if mysystem = VOID then
  40.         dlist = DrivesToList()
  41.         repeat with X = 1 to count(dlist)
  42.           driveName = getAt(dlist, X)
  43.           t = driveName & "\Program Files"
  44.           b = DirectoryExists(t)
  45.           if b = 0 then
  46.             mysystem = driveName
  47.             exit repeat
  48.           end if
  49.         end repeat
  50.       end if
  51.       u = DriveFreeSpace(mysystem)
  52.       if u < 40960 then
  53.         alert("Drive" && mysystem && "has less than 4 MB, you may need to free up disc space")
  54.         cursor(0)
  55.       end if
  56.       mysource = the moviePath & "data\" & gTitle & "\download\" & gBigScreen & "D.tif"
  57.       mydest = mysystem
  58.       retVal = FileSaveAsDialog(mydest, gBigScreen & ".tif", EMPTY, EMPTY)
  59.       if retVal <> EMPTY then
  60.         CopyFile(mysource, retVal)
  61.       end if
  62.       cursor(0)
  63.     else
  64.       if mycddrive = VOID then
  65.         driveList = DrivesToList()
  66.         repeat with X = 1 to count(driveList)
  67.           driveName = getAt(driveList, X)
  68.           Y = DriveIsCDROM(driveName)
  69.           if Y = 0 then
  70.             mycddrive = driveName
  71.           end if
  72.         end repeat
  73.       end if
  74.       if mysystem = VOID then
  75.         dlist = DrivesToList()
  76.         repeat with X = 1 to count(dlist)
  77.           driveName = getAt(dlist, X)
  78.           t = driveName & ":system folder"
  79.           b = DirectoryExists(t)
  80.           if b = 0 then
  81.             mysystem = driveName
  82.             exit repeat
  83.           end if
  84.         end repeat
  85.       end if
  86.       u = DriveFreeSpace(mysystem)
  87.       if u < 40960 then
  88.         alert("Drive" && mysystem && "has less than 4 MB, you may need to free up disc space")
  89.         cursor(0)
  90.       end if
  91.       mysource = the moviePath & "data:" & gTitle & ":download:" & gBigScreen & "D.tif"
  92.       mydest = mysystem
  93.       retVal = FileSaveAsDialog(mydest, gBigScreen & ".tif", EMPTY)
  94.       if retVal <> EMPTY then
  95.         CopyFile(mysource, retVal)
  96.       end if
  97.       cursor(0)
  98.     end if
  99.   else
  100.     exit
  101.   end if
  102. end
  103.